home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t2.d64 / col pict boot.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  547b  |  18 lines
  1. 10 REM ** COLOUR PICTURE BOOT /DISK **
  2. 20 REM **                           **
  3. 30 REM **     DON WHITE             **
  4. 40 REM **     47 ARIEL COURT        **
  5. 50 REM **     NEPEAN, ONTARIO       **
  6. 60 REM **     613-829-2082          **
  7. 70 REM **                           **
  8. 80 REM *******************************
  9. 90 REM
  10. 100 PRINT"[147]LOAD"CHR$(34)"DIANE.D"CHR$(34)",8,1"
  11. 105 PRINT"NEW"
  12. 106 PRINT"LOAD"CHR$(34)"COLOUR PICT.D"CHR$(34)",8"
  13. 110 POKE 198,9:POKE 631,19:POKE 632,13
  14. 115 POKE 633,13:POKE 634,13:POKE 635,13
  15. 116 POKE636,82:POKE637,85:POKE638,78:POKE639,13
  16. 120 POKE 44,64:POKE 43,1:POKE 16*1024,0
  17. 130 :CLR:NEW
  18.